home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / DBLLCLXP.M < prev    next >
Encoding:
Text File  |  1991-04-07  |  556 b   |  31 lines
  1. MODULE DblLclXp;
  2. (*$E MOS *)
  3. IMPORT Console;
  4.  
  5. PROCEDURE proc; FORWARD;
  6.  
  7.   MODULE L1;
  8.   IMPORT proc;
  9.   BEGIN proc; END L1;
  10.  
  11.   MODULE L2;
  12.   IMPORT Console;
  13.   EXPORT proc;
  14.     MODULE LL2;
  15.     FROM Console IMPORT Read, WriteLn, WriteString;
  16.     EXPORT proc;
  17.     PROCEDURE proc;
  18.       BEGIN
  19.         WriteString ('Hallo');
  20.         WriteLn;
  21.       END proc;
  22.     BEGIN proc END LL2;
  23.   BEGIN proc END L2;
  24.  
  25. BEGIN
  26.   proc;
  27.   Console.WriteLn;
  28.   Console.WriteString ('"Hallo" muß viermal erschienen sein!');
  29.   Console.WriteLn;
  30. END DblLclXp.
  31.